home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 012a / qbdial.zip / DIAL5.BAS
BASIC Source File  |  1991-12-04  |  1KB  |  52 lines
  1. ver$ = "1.5"
  2. CLS
  3. LOCATE 1, 25
  4. PRINT "Dialer "; ver$
  5.  
  6. CLOSE 1: CLEAR
  7.    commandstate$ = "+++"
  8.    init$ = "atq0e1m1l3x4s7=30v1"
  9.    offhook$ = "h0"
  10.    onhook$ = "h1"
  11.    dialsuffix$ = "x3dt"
  12.    reset$ = "z"
  13.    phonenumber$ = "5222900"
  14.    number$ = phonenumber$ + "@2"
  15. dial:
  16.    CLOSE 1
  17.    OPEN "com2:" + "2400,N,8,1,RS,CD,DS,asc" FOR RANDOM AS #1 LEN = 256
  18.    PRINT #1, commandstate$; init$; onhook$;
  19.    PRINT #1, dialsuffix$;
  20.    LOCATE 10, 5: PRINT "Dialing.. "; phonenumber$
  21.    PRINT #1, number$
  22. flush:
  23.      'IF LOC(1) >= 1 THEN INPUT #1, x$
  24.       INPUT #1, x$
  25.  '    GOTO flush
  26. 110 check$ = ""
  27.       WHILE check$ = ""
  28.      IF LOC(1) >= 1 THEN
  29.        a$ = INPUT$(1, #1)
  30.        IF ASC(a$) < 32 OR ASC(a$) > 90 THEN a$ = ""
  31.        'IF a$ = CHR$(13) THEN check$ = LTRIM$(n$)
  32.         n$ = n$ + a$: check$ = n$: ' LTRIM$(n$)
  33.        END IF
  34.     ' LOCATE 2, 1: PRINT check$
  35.      r$ = INKEY$
  36.      IF r$ = CHR$(32) THEN CLOSE : END
  37.       WEND
  38.      IF check$ = "BUSY" THEN PRINT " The line is busy": GOTO busy
  39.      IF check$ = "NO ANSWER" THEN PRINT " There is no answer": END
  40.       GOTO 110
  41.  
  42.  
  43. END
  44. busy:
  45. CLOSE 1
  46. FOR i = 1 TO 900: NEXT
  47. FOR i = 1 TO 900: NEXT
  48. FOR i = 1 TO 900: NEXT
  49.  
  50. GOTO dial
  51.  
  52.